% V20210224 - 9.16 GW_ADD_INPUTMINI

INCLUDE "GW.bas"

p = GW_NEW_PAGE()

GW_INJECT_HTML(p, "Enter coordinates: ")
coord_x = GW_ADD_INPUTMINI(p, "2")
GW_INJECT_HTML(p, " , ")
coord_y = GW_ADD_INPUTMINI(p, "3")

GW_ADD_BUTTON(p, "Submit", "GO")

GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Example feedback.
 POPUP r$
 IF r$ = "GO" THEN END "x: "+GW_GET_VALUE$(coord_x)+" ; y: "+GW_GET_VALUE$(coord_y)

UNTIL r$ = "BACK"

END